home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / OBJ1_2.ZIP;1 / C_WIN.TXT < prev    next >
Encoding:
Text File  |  1992-12-22  |  1.5 KB  |  57 lines
  1. '
  2. 'Class description:
  3. '
  4. !short:Win class structure:
  5. Class Win:
  6. ~~~~~~~~~~
  7. Simple nonswitchable nonmovable window for displaying of the noninterruptible
  8. action as saving or restoring of database files.
  9.  
  10. Common use:
  11. ~~~~~~~~~~~
  12. LOCAL OBJECT Win OF Win
  13. Win:Init(...)
  14. Win:Paint()
  15. ...
  16. Win:Done()
  17.  
  18. Source code is in C_Win.prg
  19.  
  20. !seealso: c_box.ngo:Box c_window.ngo:Window c_color.ngo:Color ob_class.ngo:"Class hierarchy"
  21.  
  22. !short:~~~~~~~~~~~~~~~~~~~~
  23. !short:create class Win from Box
  24. !short:  export:
  25. !short:  var Screen   //""
  26. ^BWin:Screen^N: private: character
  27.   Stores the window background to restore it after window saving.
  28.  
  29. !short:  var Visible  //false
  30. ^BWin:Visible^N: read-only: logical
  31.   If true the window is visible, if false it isn't.
  32.  
  33. !short:  method New=WinNew      //o:New() --> self
  34. ^BWin:New^N: public: return self
  35.   Object is filled with default values.
  36.  
  37. !short:  method Paint=WinPaint  //o:Paint(IsTop,lDouble) --> true
  38. ^BWin:Paint(IsTop,lDouble)^N: public: return true
  39.   The screen is saved and window is painted by the method
  40.   Box:Paint(IsTop,lDouble).
  41.  
  42. !short:  method Show=WinShow    //o:Show() --> true
  43. ^BWin:Show()^N: public: return true
  44.   Restores the window, stored by method Win:Hide().
  45.  
  46. !short:  method Hide=WinHide    //o:Hide() --> true
  47. ^BWin:Hide()^N: public: return true
  48.   Stores the window, displayed by the method Win:Paint() or
  49.   Win:Show().
  50.  
  51. !short:  method Done=WinDone    //o:Done() --> true
  52. ^BWin:Done()^N: public: return true
  53.   Window is stored if it was displayed.
  54.  
  55. !short:  endclass
  56.  
  57.